# name : R flextable::set_formatter function
# key : flextable_set_formatter.fun
# key : R.flextable.set_formatter.fun
# contributor: Shuguang
# --
double_format <- function(x){
  sprintf("%.3f", x)
}
percent_format <- function(x){
  sprintf("%2.1f %%", x*100)
}